home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / ELEVENTH.mxe < prev    next >
Text File  |  1997-02-05  |  1KB  |  67 lines
  1. /* © Dick Doyle */
  2.  
  3. options results                            
  4.  
  5.  
  6.  
  7. MXRADIO "Selected Notes,All Notes"        
  8.  
  9.  
  10. MXREQUEST "ELEVENTH,DO IT"  
  11. if result == 0 then exit                        
  12.  
  13. MXPOINTER "sleepy"                        
  14.  
  15. MXVALUE 1                                
  16. if result == 0 then BEGINSCAN 'selected'
  17. else BEGINSCAN 'all'                    
  18.  
  19. if result ~= 0 then do forever            
  20.  
  21.   NEXTEVENT                                
  22.   if result == 0 then break
  23.  
  24.   if EVENT.TYPE == 'NOTE' then do        
  25.     newval = EVENT.NUM + 4
  26.     if newval < 0 then newval = newval + 128
  27.     if newval > 127 then newval = newval - 128
  28.     EVENT.NUM = newval
  29.     ADDEVENT
  30.   end
  31.   
  32.    if EVENT.TYPE == 'NOTE' then do        
  33.     newval = EVENT.NUM + 3
  34.     if newval < 0 then newval = newval + 128
  35.     if newval > 127 then newval = newval - 128
  36.     EVENT.NUM = newval
  37.     ADDEVENT
  38.   end
  39.   
  40.    if EVENT.TYPE == 'NOTE' then do        
  41.     newval = EVENT.NUM + 3
  42.     if newval < 0 then newval = newval + 128
  43.     if newval > 127 then newval = newval - 128
  44.     EVENT.NUM = newval
  45.     ADDEVENT
  46.   end
  47.  
  48.    if EVENT.TYPE == 'NOTE' then do        
  49.     newval = EVENT.NUM + 4
  50.     if newval < 0 then newval = newval + 128
  51.     if newval > 127 then newval = newval - 128
  52.     EVENT.NUM = newval
  53.     ADDEVENT
  54.   end
  55.  
  56.    if EVENT.TYPE == 'NOTE' then do        
  57.     newval = EVENT.NUM + 3
  58.     if newval < 0 then newval = newval + 128
  59.     if newval > 127 then newval = newval - 128
  60.     EVENT.NUM = newval
  61.     ADDEVENT
  62.   end
  63. end
  64. ENDSCAN                                    
  65.  
  66. MXPOINTER "normal"                        
  67. exit